www.gusucode.com > VC 向Excel插入数据示例-源码程序 > VC 向Excel插入数据示例-源码程序/code/exceltestDlg.cpp
//Download by http://www.NewXing.com // exceltestDlg.cpp : implementation file // #include "stdafx.h" #include "exceltest.h" #include "exceltestDlg.h" #include "excel9.h" #ifdef _DEBUG #define new DEBUG_NEW #undef THIS_FILE static char THIS_FILE[] = __FILE__; #endif ///////////////////////////////////////////////////////////////////////////// // CAboutDlg dialog used for App About class CAboutDlg : public CDialog { public: CAboutDlg(); // Dialog Data //{{AFX_DATA(CAboutDlg) enum { IDD = IDD_ABOUTBOX }; //}}AFX_DATA // ClassWizard generated virtual function overrides //{{AFX_VIRTUAL(CAboutDlg) protected: virtual void DoDataExchange(CDataExchange* pDX); // DDX/DDV support //}}AFX_VIRTUAL // Implementation protected: //{{AFX_MSG(CAboutDlg) //}}AFX_MSG DECLARE_MESSAGE_MAP() }; CAboutDlg::CAboutDlg() : CDialog(CAboutDlg::IDD) { //{{AFX_DATA_INIT(CAboutDlg) //}}AFX_DATA_INIT } void CAboutDlg::DoDataExchange(CDataExchange* pDX) { CDialog::DoDataExchange(pDX); //{{AFX_DATA_MAP(CAboutDlg) //}}AFX_DATA_MAP } BEGIN_MESSAGE_MAP(CAboutDlg, CDialog) //{{AFX_MSG_MAP(CAboutDlg) // No message handlers //}}AFX_MSG_MAP END_MESSAGE_MAP() ///////////////////////////////////////////////////////////////////////////// // CExceltestDlg dialog CExceltestDlg::CExceltestDlg(CWnd* pParent /*=NULL*/) : CDialog(CExceltestDlg::IDD, pParent) { //{{AFX_DATA_INIT(CExceltestDlg) // NOTE: the ClassWizard will add member initialization here //}}AFX_DATA_INIT // Note that LoadIcon does not require a subsequent DestroyIcon in Win32 m_hIcon = AfxGetApp()->LoadIcon(IDR_MAINFRAME); } void CExceltestDlg::DoDataExchange(CDataExchange* pDX) { CDialog::DoDataExchange(pDX); //{{AFX_DATA_MAP(CExceltestDlg) // NOTE: the ClassWizard will add DDX and DDV calls here //}}AFX_DATA_MAP } BEGIN_MESSAGE_MAP(CExceltestDlg, CDialog) //{{AFX_MSG_MAP(CExceltestDlg) ON_WM_SYSCOMMAND() ON_WM_PAINT() ON_WM_QUERYDRAGICON() //}}AFX_MSG_MAP END_MESSAGE_MAP() ///////////////////////////////////////////////////////////////////////////// // CExceltestDlg message handlers BOOL CExceltestDlg::OnInitDialog() { CDialog::OnInitDialog(); // Add "About..." menu item to system menu. // IDM_ABOUTBOX must be in the system command range. ASSERT((IDM_ABOUTBOX & 0xFFF0) == IDM_ABOUTBOX); ASSERT(IDM_ABOUTBOX < 0xF000); CMenu* pSysMenu = GetSystemMenu(FALSE); if (pSysMenu != NULL) { CString strAboutMenu; strAboutMenu.LoadString(IDS_ABOUTBOX); if (!strAboutMenu.IsEmpty()) { pSysMenu->AppendMenu(MF_SEPARATOR); pSysMenu->AppendMenu(MF_STRING, IDM_ABOUTBOX, strAboutMenu); } } // Set the icon for this dialog. The framework does this automatically // when the application's main window is not a dialog SetIcon(m_hIcon, TRUE); // Set big icon SetIcon(m_hIcon, FALSE); // Set small icon // TODO: Add extra initialization here return TRUE; // return TRUE unless you set the focus to a control } void CExceltestDlg::OnSysCommand(UINT nID, LPARAM lParam) { if ((nID & 0xFFF0) == IDM_ABOUTBOX) { CAboutDlg dlgAbout; dlgAbout.DoModal(); } else { CDialog::OnSysCommand(nID, lParam); } } // If you add a minimize button to your dialog, you will need the code below // to draw the icon. For MFC applications using the document/view model, // this is automatically done for you by the framework. void CExceltestDlg::OnPaint() { if (IsIconic()) { CPaintDC dc(this); // device context for painting SendMessage(WM_ICONERASEBKGND, (WPARAM) dc.GetSafeHdc(), 0); // Center icon in client rectangle int cxIcon = GetSystemMetrics(SM_CXICON); int cyIcon = GetSystemMetrics(SM_CYICON); CRect rect; GetClientRect(&rect); int x = (rect.Width() - cxIcon + 1) / 2; int y = (rect.Height() - cyIcon + 1) / 2; // Draw the icon dc.DrawIcon(x, y, m_hIcon); } else { CDialog::OnPaint(); } } // The system calls this to obtain the cursor to display while the user drags // the minimized window. HCURSOR CExceltestDlg::OnQueryDragIcon() { return (HCURSOR) m_hIcon; } void CExceltestDlg::OnOK() { COleVariant covTrue((short)TRUE), covFalse((short)FALSE), covOptional((long)DISP_E_PARAMNOTFOUND, VT_ERROR); _Application ExcelApp; Workbooks wbsMyBooks; _Workbook wbMyBook; Worksheets wssMysheets; _Worksheet wsMysheet; Range rgMyRge; //创建Excel 2000服务器(启动Excel) if (!ExcelApp.CreateDispatch("Excel.Application",NULL)) { AfxMessageBox("创建Excel服务失败!"); exit(1); } ExcelApp.SetVisible(false); wbsMyBooks.AttachDispatch(ExcelApp.GetWorkbooks(),true); wbMyBook.AttachDispatch(wbsMyBooks.Add(covOptional)); //得到Worksheets wssMysheets.AttachDispatch(wbMyBook.GetWorksheets(),true); //得到sheet1 wsMysheet.AttachDispatch(wssMysheets.GetItem(_variant_t("sheet1")),true); //得到全部Cells,此时,rgMyRge是cells的集合 rgMyRge.AttachDispatch(wsMysheet.GetCells(),true); rgMyRge.SetValue(_variant_t("")); CString str; str = "医疗机构许可证信息查询结果"; rgMyRge.SetItem(_variant_t((long)1),_variant_t((long)2),_variant_t(str)); str = "许可证编号"; rgMyRge.SetItem(_variant_t((long)2),_variant_t((long)1),_variant_t(str)); str = "机构名称"; rgMyRge.SetItem(_variant_t((long)2),_variant_t((long)2),_variant_t(str)); str = "经营性质"; rgMyRge.SetItem(_variant_t((long)2),_variant_t((long)3),_variant_t(str)); str = "经济性质"; rgMyRge.SetItem(_variant_t((long)2),_variant_t((long)4),_variant_t(str)); str = "负责人"; rgMyRge.SetItem(_variant_t((long)2),_variant_t((long)5),_variant_t(str)); str = "法人代表"; rgMyRge.SetItem(_variant_t((long)2),_variant_t((long)6),_variant_t(str)); str = "诊疗科目"; rgMyRge.SetItem(_variant_t((long)2),_variant_t((long)7),_variant_t(str)); str = "地址"; rgMyRge.SetItem(_variant_t((long)2),_variant_t((long)8),_variant_t(str)); str = "电话"; rgMyRge.SetItem(_variant_t((long)2),_variant_t((long)8),_variant_t(str)); str = "发证日期"; rgMyRge.SetItem(_variant_t((long)2),_variant_t((long)9),_variant_t(str)); str = "有效期截止"; rgMyRge.SetItem(_variant_t((long)2),_variant_t((long)10),_variant_t(str)); ExcelApp.SetVisible(true); LPDISPATCH lpDisp; lpDisp = wsMysheet.GetRange(_variant_t("A1"),_variant_t("A1")); ASSERT(lpDisp); rgMyRge.AttachDispatch(lpDisp); lpDisp = rgMyRge.GetEntireRow(); rgMyRge.AttachDispatch(lpDisp); rgMyRge.Insert(_variant_t((long)1)); //wbMyBook.PrintPreview(_variant_t(false)); //释放对象 rgMyRge.ReleaseDispatch(); wsMysheet.ReleaseDispatch(); wssMysheets.ReleaseDispatch(); wbMyBook.ReleaseDispatch(); wbsMyBooks.ReleaseDispatch(); ExcelApp.ReleaseDispatch(); CDialog::OnOK(); }